library("foreign")
otd <- read.octave("octave.dat")
summary(otd)
str(otd)
q()
